home *** CD-ROM | disk | FTP | other *** search
Text File | 1999-03-04 | 1.5 KB | 64 lines | [TEXT/ToyS] |
- global gasDrawWin
-
-
- on run
- set gasDrawWin to ¬
- display drawing titled ¬
- "Big Button 1.0" with dimensions {160, 72}
-
- -- Fill background
- draw a box into gasDrawWin ¬
- inside of {0, 0, 160, 72} ¬
- using state {fg color:"EEEEEE"} ¬
- with filling it
-
- -- Outer frame
- draw a rounded box into gasDrawWin ¬
- inside of {16, 16, 144, 56} ¬
- using state {pen size:{2, 2}, fg color:"000000"} ¬
- with scale {16, 16} -- Round it
-
- -- Inner fill frame
- draw a rounded box into gasDrawWin ¬
- inside of {18, 18, 142, 54} ¬
- using state {fg color:"DDDDDD"} ¬
- with scale {12, 12} with filling it -- Round it
-
- -- Lower darker frame
- draw a rounded box into gasDrawWin ¬
- inside of {18, 18, 142, 54} ¬
- with clip {21, 21, 142, 54} ¬
- using state {fg color:"777777"} ¬
- with scale {12, 12} -- Round it
-
- -- Lower lighter frame
- draw a rounded box into gasDrawWin ¬
- inside of {20, 20, 140, 52} ¬
- with clip {23, 23, 140, 52} ¬
- using state {fg color:"AAAAAA"} ¬
- with scale {10, 10} -- Round it
-
- -- Upper light frame
- draw a rounded box into gasDrawWin ¬
- inside of {20, 20, 140, 52} ¬
- with clip {20, 20, 137, 49} ¬
- using state {fg color:"FFFFFF"} ¬
- with scale {10, 10} -- Round it
-
- -- The text
- draw a text box into gasDrawWin ¬
- inside of {18, 20, 142, 54} ¬
- using state {font name:"Chicago", text size:24, fg color:"000000"} ¬
- justified flush dead center ¬
- using data "Cancel"
-
- -- Refresh
- draw into gasDrawWin ¬
- with refresh
- end run
-
- on quit
- display drawing gasDrawWin with disposal
- return (continue quit)
- end quit
-